Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A206A.CMD < prev next >

Wrap

Text File | 1987-01-01 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 206 │" locate 0,8 message s8 locate 0,17 message "│ Seattle, WA │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Byte Warrior ........... 868-2866 V- ........................ ...-.... ║" message "║ B- Home of Galaxy WP System 235-8760 W- Turnover Post - Indus .. 443-1806 ║" message "║ C- Night Shift RBBS ....... 488-0924 X- Wizard's Lair .......... 783-3459 ║" message "║ D- Dean Johnson ........... 281-7661 Y- Stop N Shop ............ 248-2600 ║" message "║ E- Infinity Base .......... 329-9260 Z- 35 US HDS Human Serv ... 442-8127 ║" message "║ F- 'C ..................... 488-0924 0- PMS Software Unlimited . 486-2368 ║" message "║ G- Underdog's Mininet ..... 725-9233 1- HOST 138 Pac. NORWEST .. 527-5618 ║" message "║ H- Cel_Com 1 .............. 725-9413 2- Northwest Computer Soc . 621-8665 ║" message "║ I- ........................ ...-.... 3- ........................ ...-.... ║" message "║ J- Fido Heath/Zenith ...... 941-6943 4- MINIBIN: TUG ........... 763-3116 ║" message "║ K- Fido BECS Tandy ........ 527-5618 5- Seattle RBBS PC ........ 883-4403 ║" message "║ L- Computer Exchange ...... 431-8664 6- Cheryl's Velvet Touch .. 937-2957 ║" message "║ M- ........................ ...-.... 7- ........................ ...-.... ║" message "║ N- ........................ ...-.... 8- ........................ ...-.... ║" message "║ O- ....... ............... ...-.... 9- ........................ ...-.... ║" message "║ P- Bellevue Crossroads .... 747-1944 @- ........................ ...-.... ║" message "║ Q- Public Domain Silo ..... 775-2650 #- ........................ ...-.... ║" message "║ R- Puget Sound RBBS ....... 743-0162 $- ........................ ...-.... ║" message "║ S- Sears Business Center .. 641-6265 %- ........................ ...-.... ║" message "║ T- Seattle Homedome RBBS .. 946-1627 &- ........................ ...-.... ║" message "║ U- Software Salers ........ 367-2026 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "868-2866" assign s6 "Byte Warrior " gosub dial else endif find s0 "B" if found assign s8 "235-8760" assign s6 "Galaxy Word Processing Sys " gosub dial else endif find s0 "C" if found assign s8 "488-0924" assign s6 "Night Shift RBBS " gosub dial else endif find s0 "D" if found assign s8 "281-7661" assign s6 "Dean Johnson " gosub dial else endif find s0 "E" if found assign s8 "329-9260" assign s6 "Infinity Base " gosub dial else endif find s0 "F" if found assign s8 "488-0924" assign s6 "'C BBS " gosub dial else endif find s0 "G" if found assign s8 "725-9233" assign s6 "Underdog's Mininet " gosub dial else endif find s0 "H" if found assign s8 "725-9413" assign s6 "Cel_Com 1 " gosub dial else endif find s0 "I" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "J" if found assign s8 "941-6943" assign s6 "Fido Heath/Zenith " gosub dial else endif find s0 "K" if found assign s8 "527-5618" assign s6 "Fido BECS Tandy " gosub dial else endif find s0 "L" if found assign s8 "431-8664" assign s6 "Computer Exchange " gosub dial else endif find s0 "M" if found assign s8 "858-2028" assign s6 "Gig Harbor IBS " gosub dial else endif find s0 "N" if found assign s8 "630-3329" assign s6 "Multi-Connection " gosub dial else endif find s0 "O" if found assign s8 "535-2837" assign s6 "Northwest Micronet " gosub dial else endif find s0 "P" if found assign s8 "747-1944" assign s6 "Bellevue Crossroads " gosub dial else endif find s0 "Q" if found assign s8 "775-2650" assign s6 "Public Domain Silo " gosub dial else endif find s0 "R" if found assign s8 "743-0162" assign s6 "Puget Sound RBBS " gosub dial else endif find s0 "S" if found assign s8 "641-6265" assign s6 "Sears Business Center " gosub dial else endif find s0 "T" if found assign s8 "946-1627" assign s6 "Seattle Homedome RBBS " gosub dial else endif find s0 "U" if found assign s8 "367-2026" assign s6 "Software Salers " gosub dial else endif find s0 "V" if found assign s8 "698-2387" assign s6 "Trident Base One " gosub dial else endif find s0 "W" if found assign s8 "443-1806" assign s6 "Turnover Post - Industrial " gosub dial else endif find s0 "X" if found assign s8 "783-3459" assign s6 "Wizard's Lair " gosub dial else endif find s0 "Y" if found assign s8 "248-2600" assign s6 "Stop 'N Shop " gosub dial else endif find s0 "Z" if found assign s8 "442-8127" assign s6 "35 US HDS Human Services " gosub dial else endif find s0 "0" if found assign s8 "486-2368" assign s6 "PMS Software Unlimited " gosub dial else endif find s0 "1" if found assign s8 "527-5618" assign s6 "Host 138 Pacific NORWEST " gosub dial else endif find s0 "2" if found assign s8 "621-8665" assign s6 "Northwest Computer Society " gosub dial else endif find s0 "3" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "4" if found assign s8 "763-3116" assign s6 "MINIBIN: TUG " gosub dial else endif find s0 "5" if found assign s8 "883-4403" assign s6 "Seattle RBBS PC " gosub dial else endif find s0 "6" if found assign s8 "937-2957" assign s6 "Cheryl's Velvet Touch " gosub dial else endif find s0 "7" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit